مطمئناً برای همه ما مسلمانان این اتفاق افتاده و یا خواهد افتاد که در مکانی دور از خانه خود به دنبال جهت قبله برای اقامه نماز بوده ایم و برای پیدا کردن مسیر آن از راه و روش های مختلفی استفاده کرده ایم. اما اینبار با داشتننرم افزار نمایش قبله بر روی گوشی خود دیگر برای پیدا کردن مسیر خانه خدا احتیاج نیست از کسی بپرسید، موقعیت خورشید را محاسبه کنید، به دنبال سمت جنوب و یا مسجد بگردید. با همراه داشتن نرم افزار نمایش قبله در هر کجای دنیا فقط کافیست دکمه ای را بفشارید تا جهت صحیح کعبه با استفاه از سخت افزار GPS و Compass گوشی به شما نمایش داده شود.

 

     



Public Sub Window_OnLoad() 'Set LoadChar = AgentControl.Characters.Load ("Merlin", _ ' "C:Windowsmsagentcharsmerlin.acs") 'Change to proper root depending on OS. Set LoadChar = AgentControl.Characters.Load ("Merlin") On Error Resume Next Set Merlin = AgentControl.Characters ("Merlin") Merlin.Show Merlin.Speak ("jomleye shoma") Merlin.MoveTo 100,500 Merlin.GestureRight Merlin.Speak ("jomleye shoma") Merlin.MoveTo 500,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 300,300 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,450 Merlin.Speak ("adrese maile shoma") Merlin.MoveTo 500,10 Merlin.Speak ("adrese webloge shoma") End Sub Sub AgentControl_DragStart (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("Alert") Merlin.Speak ("Pau=800vol=65535darde eshgh hamishe marashekast dad ") End Sub Sub AgentControl_DragCOmplete (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("RestPose") End Sub